home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / smtp / sendemai.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-04-14  |  11.3 KB  |  362 lines
  1. VERSION 5.00
  2. Object = "{619E3FF0-F2BC-11D2-B654-444553540000}#1.0#0"; "SMTP.OCX"
  3. Begin VB.Form SendEmailForm 
  4.    Caption         =   "SMTP ActiveX Control Demo"
  5.    ClientHeight    =   5145
  6.    ClientLeft      =   60
  7.    ClientTop       =   375
  8.    ClientWidth     =   6600
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   5145
  11.    ScaleWidth      =   6600
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin SendMail.Smtp Smtp1 
  14.       Left            =   1080
  15.       Top             =   2400
  16.       _ExtentX        =   953
  17.       _ExtentY        =   953
  18.    End
  19.    Begin VB.TextBox MailMessage 
  20.       BackColor       =   &H00E0E0E0&
  21.       BeginProperty Font 
  22.          Name            =   "MS Sans Serif"
  23.          Size            =   9.75
  24.          Charset         =   0
  25.          Weight          =   700
  26.          Underline       =   0   'False
  27.          Italic          =   0   'False
  28.          Strikethrough   =   0   'False
  29.       EndProperty
  30.       ForeColor       =   &H00000000&
  31.       Height          =   1335
  32.       Left            =   2640
  33.       MultiLine       =   -1  'True
  34.       ScrollBars      =   2  'Vertical
  35.       TabIndex        =   11
  36.       Text            =   "SendEmailForm.frx":0000
  37.       Top             =   1680
  38.       Width           =   3615
  39.    End
  40.    Begin VB.CommandButton SendMail 
  41.       Caption         =   "Send Mail"
  42.       BeginProperty Font 
  43.          Name            =   "MS Sans Serif"
  44.          Size            =   9.75
  45.          Charset         =   0
  46.          Weight          =   700
  47.          Underline       =   0   'False
  48.          Italic          =   0   'False
  49.          Strikethrough   =   0   'False
  50.       EndProperty
  51.       Height          =   495
  52.       Left            =   2640
  53.       TabIndex        =   9
  54.       Top             =   3120
  55.       Width           =   3615
  56.    End
  57.    Begin VB.TextBox MailSubject 
  58.       BackColor       =   &H00E0E0E0&
  59.       BeginProperty Font 
  60.          Name            =   "MS Sans Serif"
  61.          Size            =   9.75
  62.          Charset         =   0
  63.          Weight          =   700
  64.          Underline       =   0   'False
  65.          Italic          =   0   'False
  66.          Strikethrough   =   0   'False
  67.       EndProperty
  68.       Height          =   375
  69.       Left            =   2640
  70.       TabIndex        =   8
  71.       Text            =   "Test smtp.ocx to author"
  72.       Top             =   1320
  73.       Width           =   3615
  74.    End
  75.    Begin VB.TextBox MailTo 
  76.       BackColor       =   &H00E0E0E0&
  77.       BeginProperty Font 
  78.          Name            =   "MS Sans Serif"
  79.          Size            =   9.75
  80.          Charset         =   0
  81.          Weight          =   700
  82.          Underline       =   0   'False
  83.          Italic          =   0   'False
  84.          Strikethrough   =   0   'False
  85.       EndProperty
  86.       Height          =   375
  87.       Left            =   2640
  88.       TabIndex        =   7
  89.       Text            =   "microtech_labs@theoffice.net"
  90.       Top             =   960
  91.       Width           =   3615
  92.    End
  93.    Begin VB.TextBox MailFrom 
  94.       BackColor       =   &H00E0E0E0&
  95.       BeginProperty Font 
  96.          Name            =   "MS Sans Serif"
  97.          Size            =   9.75
  98.          Charset         =   0
  99.          Weight          =   700
  100.          Underline       =   0   'False
  101.          Italic          =   0   'False
  102.          Strikethrough   =   0   'False
  103.       EndProperty
  104.       Height          =   375
  105.       Left            =   2640
  106.       TabIndex        =   6
  107.       Top             =   600
  108.       Width           =   3615
  109.    End
  110.    Begin VB.TextBox MailServername 
  111.       BackColor       =   &H00E0E0E0&
  112.       BeginProperty Font 
  113.          Name            =   "MS Sans Serif"
  114.          Size            =   9.75
  115.          Charset         =   0
  116.          Weight          =   700
  117.          Underline       =   0   'False
  118.          Italic          =   0   'False
  119.          Strikethrough   =   0   'False
  120.       EndProperty
  121.       Height          =   375
  122.       Left            =   2640
  123.       TabIndex        =   5
  124.       Top             =   240
  125.       Width           =   3615
  126.    End
  127.    Begin VB.Timer Timer1 
  128.       Interval        =   100
  129.       Left            =   360
  130.       Top             =   2520
  131.    End
  132.    Begin VB.Line Line8 
  133.       BorderColor     =   &H00E0E0E0&
  134.       X1              =   4680
  135.       X2              =   6600
  136.       Y1              =   4080
  137.       Y2              =   4080
  138.    End
  139.    Begin VB.Line Line7 
  140.       X1              =   4680
  141.       X2              =   6600
  142.       Y1              =   3960
  143.       Y2              =   3960
  144.    End
  145.    Begin VB.Line Line6 
  146.       X1              =   0
  147.       X2              =   1920
  148.       Y1              =   3960
  149.       Y2              =   3960
  150.    End
  151.    Begin VB.Line Line5 
  152.       BorderColor     =   &H00E0E0E0&
  153.       X1              =   0
  154.       X2              =   1920
  155.       Y1              =   4080
  156.       Y2              =   4080
  157.    End
  158.    Begin VB.Line Line4 
  159.       X1              =   6480
  160.       X2              =   6480
  161.       Y1              =   120
  162.       Y2              =   3720
  163.    End
  164.    Begin VB.Line Line3 
  165.       BorderWidth     =   2
  166.       X1              =   240
  167.       X2              =   6480
  168.       Y1              =   3720
  169.       Y2              =   3720
  170.    End
  171.    Begin VB.Line Line2 
  172.       BorderColor     =   &H00FFFFFF&
  173.       X1              =   240
  174.       X2              =   6480
  175.       Y1              =   120
  176.       Y2              =   120
  177.    End
  178.    Begin VB.Line Line1 
  179.       BorderColor     =   &H00FFFFFF&
  180.       X1              =   240
  181.       X2              =   240
  182.       Y1              =   120
  183.       Y2              =   3720
  184.    End
  185.    Begin VB.Label Label6 
  186.       Alignment       =   2  'Center
  187.       BackColor       =   &H00000000&
  188.       BorderStyle     =   1  'Fixed Single
  189.       Caption         =   "Connection Status"
  190.       BeginProperty Font 
  191.          Name            =   "MS Sans Serif"
  192.          Size            =   9.75
  193.          Charset         =   0
  194.          Weight          =   700
  195.          Underline       =   0   'False
  196.          Italic          =   0   'False
  197.          Strikethrough   =   0   'False
  198.       EndProperty
  199.       ForeColor       =   &H0000FF00&
  200.       Height          =   375
  201.       Left            =   1920
  202.       TabIndex        =   12
  203.       Top             =   3840
  204.       Width           =   2775
  205.    End
  206.    Begin VB.Label ConnectionStatus 
  207.       BackColor       =   &H00000000&
  208.       BorderStyle     =   1  'Fixed Single
  209.       BeginProperty Font 
  210.          Name            =   "MS Sans Serif"
  211.          Size            =   9.75
  212.          Charset         =   0
  213.          Weight          =   700
  214.          Underline       =   0   'False
  215.          Italic          =   0   'False
  216.          Strikethrough   =   0   'False
  217.       EndProperty
  218.       ForeColor       =   &H00E0E0E0&
  219.       Height          =   735
  220.       Left            =   0
  221.       TabIndex        =   10
  222.       Top             =   4320
  223.       Width           =   6615
  224.       WordWrap        =   -1  'True
  225.    End
  226.    Begin VB.Label Label5 
  227.       BackColor       =   &H00000000&
  228.       BorderStyle     =   1  'Fixed Single
  229.       Caption         =   " Message"
  230.       BeginProperty Font 
  231.          Name            =   "MS Sans Serif"
  232.          Size            =   9.75
  233.          Charset         =   0
  234.          Weight          =   700
  235.          Underline       =   0   'False
  236.          Italic          =   0   'False
  237.          Strikethrough   =   0   'False
  238.       EndProperty
  239.       ForeColor       =   &H00E0E0E0&
  240.       Height          =   375
  241.       Left            =   480
  242.       TabIndex        =   4
  243.       Top             =   1680
  244.       Width           =   2175
  245.    End
  246.    Begin VB.Label Label4 
  247.       BackColor       =   &H00000000&
  248.       BorderStyle     =   1  'Fixed Single
  249.       Caption         =   " S u b j e c t"
  250.       BeginProperty Font 
  251.          Name            =   "MS Sans Serif"
  252.          Size            =   9.75
  253.          Charset         =   0
  254.          Weight          =   700
  255.          Underline       =   0   'False
  256.          Italic          =   0   'False
  257.          Strikethrough   =   0   'False
  258.       EndProperty
  259.       ForeColor       =   &H00E0E0E0&
  260.       Height          =   375
  261.       Left            =   480
  262.       TabIndex        =   3
  263.       Top             =   1320
  264.       Width           =   2175
  265.    End
  266.    Begin VB.Label Label3 
  267.       BackColor       =   &H00000000&
  268.       BorderStyle     =   1  'Fixed Single
  269.       Caption         =   " Mail To"
  270.       BeginProperty Font 
  271.          Name            =   "MS Sans Serif"
  272.          Size            =   9.75
  273.          Charset         =   0
  274.          Weight          =   700
  275.          Underline       =   0   'False
  276.          Italic          =   0   'False
  277.          Strikethrough   =   0   'False
  278.       EndProperty
  279.       ForeColor       =   &H00E0E0E0&
  280.       Height          =   375
  281.       Left            =   480
  282.       TabIndex        =   2
  283.       Top             =   960
  284.       Width           =   2175
  285.    End
  286.    Begin VB.Label Label2 
  287.       BackColor       =   &H00000000&
  288.       BorderStyle     =   1  'Fixed Single
  289.       Caption         =   " Mail From"
  290.       BeginProperty Font 
  291.          Name            =   "MS Sans Serif"
  292.          Size            =   9.75
  293.          Charset         =   0
  294.          Weight          =   700
  295.          Underline       =   0   'False
  296.          Italic          =   0   'False
  297.          Strikethrough   =   0   'False
  298.       EndProperty
  299.       ForeColor       =   &H00E0E0E0&
  300.       Height          =   375
  301.       Left            =   480
  302.       TabIndex        =   1
  303.       Top             =   600
  304.       Width           =   2175
  305.    End
  306.    Begin VB.Label Label1 
  307.       BackColor       =   &H00000000&
  308.       BorderStyle     =   1  'Fixed Single
  309.       Caption         =   " Mail Server Name"
  310.       BeginProperty Font 
  311.          Name            =   "MS Sans Serif"
  312.          Size            =   9.75
  313.          Charset         =   0
  314.          Weight          =   700
  315.          Underline       =   0   'False
  316.          Italic          =   0   'False
  317.          Strikethrough   =   0   'False
  318.       EndProperty
  319.       ForeColor       =   &H00E0E0E0&
  320.       Height          =   375
  321.       Left            =   480
  322.       TabIndex        =   0
  323.       Top             =   240
  324.       Width           =   2175
  325.    End
  326. Attribute VB_Name = "SendEmailForm"
  327. Attribute VB_GlobalNameSpace = False
  328. Attribute VB_Creatable = False
  329. Attribute VB_PredeclaredId = True
  330. Attribute VB_Exposed = False
  331. Private Sub Form_Load()
  332.     Me.Show
  333. End Sub
  334. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  335.     End
  336. End Sub
  337. Private Sub SendMail_Click()
  338.     Load SendEmailForm
  339.     SendEmailForm.Show
  340.     ' Set SMTP server's name
  341.     Smtp1.Mail_Server = MailServername.Text
  342.     ' Set mail address of sender
  343.     Smtp1.Mail_From = MailFrom.Text
  344.     '   Set mail address of receipient
  345.     Smtp1.Mail_To = MailTo.Text
  346.     '   Set mail subject
  347.     Smtp1.Subject = MailSubject.Text
  348.     ' Set body of message
  349.     Smtp1.Message = MailMessage.Text
  350.     ' Send_Mail set to True means we send mail
  351.     ' Send_Mail set to False means we don't send
  352.     Smtp1.Send_Mail = True
  353. End Sub
  354. Private Sub Timer1_Timer()
  355.     DoEvents
  356.     ConnectionStatus.Caption = Smtp1.Status
  357.     If Smtp1.Error = True Then
  358.         MsgBox Smtp1.Status, vbCritical, "Warning"
  359.         Smtp1.Send_Mail = False
  360.     End If
  361. End Sub
  362.